Sub S03_Write_data_record_into_a_table(ByRef Database_Name)



Dim conn, rst, SQL_Table



Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")


conn.Open "Provider=MSDASQL;Initial Catalog=" & SmartTags("szDatabase") & ";DSN="&Database_Name&"" 'DSN= Name of the ODBC database - DSN= Name der ODBC-Datenbank




SQL_Table = "SELECT * FROM " & SmartTags("szTableName") & " WHERE Nr = " & SmartTags("nDat_No")  


Set rst = conn.Execute(SQL_Table)


	
	SQL_Table = "INSERT INTO "& SmartTags("szTableName") & " VALUES ('" & SmartTags("nDat_No") & _
	            "' , '" & SmartTags("nValue_1") & "' , '" & SmartTags("nValue_2") & _
	            "' , '" & SmartTags("nValue_3") & "')"
	'Insert the data reacord of the table - Datensatz in die Tabelle hinzufgen
	Set rst = conn.Execute(SQL_Table)


conn.close

Set rst = Nothing
Set conn = Nothing

End Sub